home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / tmg107.zip / MAGIC.ZIP / ITEMS / 3.SCR < prev    next >
Text File  |  1997-03-09  |  2KB  |  47 lines
  1. @#WEAR
  2.   Set ^VR03 ^CS03
  3.   Set ^VR04 ^CS04
  4.   Set ^VR05 ^CS05
  5.   Mult ^VR03 .1
  6.   Mult ^VR04 .1
  7.   Mult ^VR05 .1
  8.   AddFlag RCOM_ATTACK_ADDED ^VR03 2 C
  9.   AddFlag RCOM_DEFENSE_ADDED ^VR04 2 C
  10.   AddFlag RCOM_DAMAGE_REDUCTION_ADDED ^VR05 2 C
  11.   Add ^CS03 ^VR03
  12.   Add ^CS04 ^VR04
  13.   Add ^CS05 ^VR05
  14.   Writeln "`3  As you place the ring upon your finger, you can feel mystical energy"
  15.   Writeln "  surging through your body, amplifying your abilities."
  16.   Writeln "`9  (`%Attack +^VR03`9)"
  17.   Writeln "`9  (`%Defense +^VR04`9)"
  18.   Writeln "`9  (`%Damage Reduction +^VR05`9)"
  19.   Return
  20. @#REMOVE
  21.   FlagValue ^VR03 RCOM_ATTACK_ADDED C
  22.   FlagValue ^VR04 RCOM_DEFENSE_ADDED C
  23.   FlagValue ^VR05 RCOM_DAMAGE_REDUCTION_ADDED C
  24.   Add ^CS03 -^VR03
  25.   Add ^CS04 -^VR04
  26.   Add ^CS05 -^VR05
  27.   RemoveFlag RCOM_ATTACK_ADDED C
  28.   RemoveFlag RCOM_DEFENSE_ADDED C
  29.   RemoveFlag RCOM_DAMAGE_REDUCTION_ADDED C
  30.   Writeln "`3  As you remove the ring from your finger, you can feel the mystical energy"
  31.   Writeln "  within your body begin to drain away until you are again a mere mortal."
  32.   Writeln "`9  (`%Attack -^VR03`9)"
  33.   Writeln "`9  (`%Defense -^VR04`9)"
  34.   Writeln "`9  (`%Damage Reduction -^VR05`9)"
  35.   Return
  36. @#IDENTIFY
  37.   Writeln "`3  The Ring of Combat calls upon the power of the arcane to amplify your"
  38.   Writeln "  natural abilities and adds to all of your combat related skills."
  39.   Writeln "`9  (`%+10% Attack Value`9)"
  40.   Writeln "`9  (`%+10% Defense Value`9)"
  41.   Writeln "`9  (`%+5% Damage Resistance`9)"
  42.   Return
  43. @#MAIN
  44.   Gosub ^VR01
  45.   Halt
  46. @#
  47.